home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 19 / CD_ASCQ_19_010295.iso / dos / prg / pas / swag / win_os2.swg / 0034_Pascal WinG Unit.pas < prev    next >
Pascal/Delphi Source File  |  1994-08-25  |  2KB  |  61 lines
  1. { From: dv224@cleveland.Freenet.Edu (Matthew R Powenski) }
  2.  
  3. Unit WinG;
  4.  
  5. Interface
  6.  
  7. Uses
  8.   WinTypes;
  9.  
  10. Type
  11.   pPointer = ^Pointer;
  12.   Wing_Dither_Type = (WING_DISPERSED_4x4,
  13.                    WING_DISPERSED_8x8, WING_CLUSTERED_4x4);
  14.  
  15. {**** WingDC and WinGBitmap
  16. ************************************************}
  17.  
  18.   Function WinGCreateDC: HDC;
  19.   Function WinGRecommendDIBFormat (pFormat: pBitmapInfo): Bool;
  20.   Function WinGCreateBitmap (WinGDC: hDC; pHeader: pBitmapInfo;
  21. ppBits: pPointer): hBitmap;
  22.   Function WinGGetDIBPointer (WinGBitmap: hBitmap; pHeader:
  23. pBitmapInfo): Pointer;
  24.   Function WinGGetDIBColorTable (WinGDC:
  25. hDC;StartIndex,NumberOfEntries: Word; Var Colors: tRgbQuad): Word;
  26.   Function WinGSetDIBColorTable (WinGDC:
  27. hDC;StartIndex,NumberOfEntries: Word; Var Colors: tRgbQuad): Word;
  28.  
  29. {**** Halftoning
  30. ***********************************************************}
  31.  
  32.   Function WinGCreateHalftonePalette: HPALETTE;
  33.   Function WinGCreateHalftoneBrush (Context: HDC;crColor: tColorRef;
  34. DitherType: WING_DITHER_TYPE): hBrush;
  35.  
  36. {**** Blts
  37. ***************************************************************
  38. **}
  39.  
  40.   Function WinGBitBlt (hdcDest:
  41. HDC;nXOriginDest,nYOriginDest,nWidthDest,nHeightDest: Integer;
  42.                        hdcSrc: HDC;nXOriginSrc,nYOriginSrc: Integer): Bool;
  43.  
  44.   Function WinGStretchBlt (hdcDest:
  45. HDC;nXOriginDest,nYOriginDest,nWidthDest,nHeightDest: Integer;
  46.                            hdcSrc:
  47. HDC;nXOriginSrc,nYOriginSrc,nWidthSrc,nHeightSrc: Integer): Bool;
  48.  
  49. Implementation
  50.   Function WinGBitBlt;                    External 'WING'     Index 1010;
  51.   Function WinGCreateBitmap;              External 'WING'     Index 1003;
  52.   Function WinGCreateDC;                  External 'WING'     Index 1001;
  53.   Function WinGCreateHalftoneBrush;       External 'WING'     Index 1008;
  54.   Function WinGCreateHalftonePalette;     External 'WING'     Index 1007;
  55.   Function WinGGetDIBColorTable;          External 'WING'     Index 1005;
  56.   Function WinGGetDIBPointer;             External 'WING'     Index 1004;
  57.   Function WinGRecommendDIBFormat;        External 'WING'     Index 1002;
  58.   Function WinGSetDIBColorTable;          External 'WING'     Index 1006;
  59.   Function WinGStretchBlt;                External 'WING'     Index 1009;
  60.   End.
  61.